home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / pclvbw10.zip / LOGIN.FRM < prev    next >
Text File  |  1996-02-09  |  9KB  |  421 lines

  1. VERSION 2.00
  2. Begin Form Login 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "LOGIN"
  6.    ClientHeight    =   5595
  7.    ClientLeft      =   255
  8.    ClientTop       =   1740
  9.    ClientWidth     =   8565
  10.    FontBold        =   0   'False
  11.    FontItalic      =   0   'False
  12.    FontName        =   "Courier New"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   6285
  17.    Left            =   195
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   5595
  20.    ScaleWidth      =   8565
  21.    Top             =   1110
  22.    Width           =   8685
  23.    Begin Timer Timer1 
  24.       Interval        =   125
  25.       Left            =   360
  26.       Top             =   240
  27.    End
  28.    Begin Menu menuLine 
  29.       Caption         =   "Line"
  30.       Begin Menu menuExit 
  31.          Caption         =   "E&xit"
  32.       End
  33.       Begin Menu menuOnLine 
  34.          Caption         =   "OnLine"
  35.       End
  36.       Begin Menu menuOffLine 
  37.          Caption         =   "OffLine"
  38.          Enabled         =   0   'False
  39.       End
  40.    End
  41.    Begin Menu menuChange 
  42.       Caption         =   "Change"
  43.       Begin Menu menuPort 
  44.          Caption         =   "Port"
  45.          Begin Menu menuCOM1 
  46.             Caption         =   "COM1"
  47.             Checked         =   -1  'True
  48.          End
  49.          Begin Menu menuCOM2 
  50.             Caption         =   "COM2"
  51.          End
  52.          Begin Menu menuCOM3 
  53.             Caption         =   "COM3"
  54.          End
  55.          Begin Menu menuCOM4 
  56.             Caption         =   "COM4"
  57.          End
  58.       End
  59.       Begin Menu menuBaud 
  60.          Caption         =   "Baud"
  61.          Begin Menu menu1200 
  62.             Caption         =   "1200"
  63.          End
  64.          Begin Menu menu2400 
  65.             Caption         =   "2400"
  66.          End
  67.          Begin Menu menu4800 
  68.             Caption         =   "4800"
  69.          End
  70.          Begin Menu menu9600 
  71.             Caption         =   "9600"
  72.          End
  73.          Begin Menu menu19200 
  74.             Caption         =   "19200"
  75.             Checked         =   -1  'True
  76.          End
  77.          Begin Menu menu38400 
  78.             Caption         =   "38400"
  79.          End
  80.          Begin Menu menu57600 
  81.             Caption         =   "57600"
  82.          End
  83.          Begin Menu menu115200 
  84.             Caption         =   "115200"
  85.          End
  86.       End
  87.       Begin Menu menuParity 
  88.          Caption         =   "Parity"
  89.          Begin Menu menuNone 
  90.             Caption         =   "None"
  91.             Checked         =   -1  'True
  92.          End
  93.          Begin Menu menuEven 
  94.             Caption         =   "Even"
  95.          End
  96.          Begin Menu menuOdd 
  97.             Caption         =   "Odd"
  98.          End
  99.       End
  100.       Begin Menu menuDataBits 
  101.          Caption         =   "DataBits"
  102.          Begin Menu menuSeven 
  103.             Caption         =   "Seven"
  104.          End
  105.          Begin Menu menuEight 
  106.             Caption         =   "Eight"
  107.             Checked         =   -1  'True
  108.          End
  109.       End
  110.       Begin Menu menuStopBits 
  111.          Caption         =   "StopBits"
  112.          Begin Menu menuOne 
  113.             Caption         =   "One"
  114.             Checked         =   -1  'True
  115.          End
  116.          Begin Menu menuTwo 
  117.             Caption         =   "Two"
  118.          End
  119.       End
  120.    End
  121.    Begin Menu menuModem 
  122.       Caption         =   "Modem"
  123.       Enabled         =   0   'False
  124.       Begin Menu menuStart 
  125.          Caption         =   "Start"
  126.          Begin Menu menuHandshake 
  127.             Caption         =   "Handshake"
  128.          End
  129.          Begin Menu menuDial 
  130.             Caption         =   "Dial"
  131.          End
  132.       End
  133.       Begin Menu menuBREAK 
  134.          Caption         =   "BREAK"
  135.          Enabled         =   0   'False
  136.       End
  137.    End
  138. End
  139. ' LOGIN.BAS
  140. Option Explicit
  141.  
  142.  
  143.  
  144. Sub Form_KeyPress (KeyAscii As Integer)
  145.     Dim Code As Integer
  146.     '''LOGIN.Print ">>>"; Hex$(KeyAscii); "";
  147.     If KeyAscii <> 10 Then
  148.       Code = SioPutc(ThePort, KeyAscii)
  149.     End If
  150. End Sub
  151.  
  152. Sub Form_Load ()
  153.     Dim Row As Integer
  154.     BaudText(1) = "600"
  155.     BaudText(2) = "1200"
  156.     BaudText(3) = "2400"
  157.     BaudText(4) = "4800"
  158.     BaudText(5) = "9600"
  159.     BaudText(6) = "19200"
  160.     BaudText(7) = "38400"
  161.     BaudText(8) = "57600"
  162.     BaudText(9) = "115200"
  163.     ParityText(0) = "N"
  164.     ParityText(1) = "O"
  165.     ParityText(2) = "?"
  166.     ParityText(3) = "E"
  167.     ParityText(4) = "?"
  168.     ParityText(5) = "M"
  169.     ParityText(6) = "?"
  170.     ParityText(7) = "S"
  171.     FatalFlag = 0
  172.     ThePort = COM1
  173.     TheBaudCode = Baud19200
  174.     TheDataBits = WordLength8
  175.     TheStopBits = OneStopBit
  176.     TheParity = NoParity
  177.     CurrentCol = 0
  178.     CurrentRow = 0
  179.     OnLineFlag = 0
  180.     For Row = 0 To 23
  181.       ScreenBuffer(Row) = Space$(80)
  182.     Next Row
  183.     LOGIN.Cls
  184.     Call ShowConfig
  185. End Sub
  186.  
  187. Sub menu115200_Click ()
  188.   Call UncheckBaudRate
  189.   menu115200.Checked = True
  190.   TheBaudCode = Baud115200
  191.   Call ShowConfig
  192. End Sub
  193.  
  194. Sub menu1200_Click ()
  195.   Call UncheckBaudRate
  196.   menu1200.Checked = True
  197.   TheBaudCode = Baud1200
  198.   Call ShowConfig
  199. End Sub
  200.  
  201. Sub menu19200_Click ()
  202.   Call UncheckBaudRate
  203.   menu19200.Checked = True
  204.   TheBaudCode = Baud19200
  205.   Call ShowConfig
  206. End Sub
  207.  
  208. Sub menu2400_Click ()
  209.   Call UncheckBaudRate
  210.   menu2400.Checked = True
  211.   TheBaudCode = Baud2400
  212.   Call ShowConfig
  213. End Sub
  214.  
  215. Sub menu38400_Click ()
  216.   Call UncheckBaudRate
  217.   menu38400.Checked = True
  218.   TheBaudCode = Baud38400
  219.   Call ShowConfig
  220. End Sub
  221.  
  222. Sub menu4800_Click ()
  223.   Call UncheckBaudRate
  224.   menu4800.Checked = True
  225.   TheBaudCode = Baud4800
  226.   Call ShowConfig
  227. End Sub
  228.  
  229. Sub menu57600_Click ()
  230.   Call UncheckBaudRate
  231.   menu57600.Checked = True
  232.   TheBaudCode = Baud57600
  233.   Call ShowConfig
  234. End Sub
  235.  
  236. Sub menu9600_Click ()
  237.   Call UncheckBaudRate
  238.   menu9600.Checked = True
  239.   TheBaudCode = Baud9600
  240.   Call ShowConfig
  241. End Sub
  242.  
  243. Sub menuBREAK_Click ()
  244. Dim Code As Integer
  245. mioState = 0
  246. Code = mioBreak(ThePort)
  247. menuStart.Enabled = True
  248. menuBREAK.Enabled = False
  249. End Sub
  250.  
  251. Sub menuCOM1_Click ()
  252.   Call UncheckComPorts
  253.   menuCOM1.Checked = True
  254.   ThePort = COM1
  255.   Call ShowConfig
  256. End Sub
  257.  
  258. Sub menuCOM2_Click ()
  259.   Call UncheckComPorts
  260.   menuCOM2.Checked = True
  261.   ThePort = COM2
  262.   Call ShowConfig
  263. End Sub
  264.  
  265. Sub menuCOM3_Click ()
  266.   Call UncheckComPorts
  267.   menuCOM3.Checked = True
  268.   ThePort = COM3
  269.   Call ShowConfig
  270. End Sub
  271.  
  272. Sub menuCOM4_Click ()
  273.   Call UncheckComPorts
  274.   menuCOM4.Checked = True
  275.   ThePort = COM4
  276.   Call ShowConfig
  277. End Sub
  278.  
  279. Sub menuDial_Click ()
  280. mioState = Dial_1
  281. menuStart.Enabled = False
  282. menuBREAK.Enabled = True
  283. End Sub
  284.  
  285. Sub menuEight_Click ()
  286.   Call UncheckDataBits
  287.   menuEight.Checked = True
  288.   TheDataBits = WordLength8
  289.   Call ShowConfig
  290. End Sub
  291.  
  292. Sub menuEven_Click ()
  293.   Call UncheckParity
  294.   menuEven.Checked = True
  295.   TheParity = EvenParity
  296.   Call ShowConfig
  297. End Sub
  298.  
  299. Sub menuExit_Click ()
  300.   Call GoOffLine
  301.   End
  302. End Sub
  303.  
  304. Sub menuHand_Click ()
  305. If mioState = 0 Then
  306.   mioState = Handshake_1
  307. Else
  308.   DisplayString (">>>MIO already running...")
  309. End If
  310. End Sub
  311.  
  312. Sub menuHandshake_Click ()
  313. mioState = Handshake_1
  314. menuStart.Enabled = False
  315. menuBREAK.Enabled = True
  316. End Sub
  317.  
  318. Sub menuNone_Click ()
  319.   Call UncheckParity
  320.   menuNone.Checked = True
  321.   TheParity = NoParity
  322.   Call ShowConfig
  323. End Sub
  324.  
  325. Sub menuOdd_Click ()
  326.   Call UncheckDataBits
  327.   menuOdd.Checked = True
  328.   TheParity = OddParity
  329.   Call ShowConfig
  330. End Sub
  331.  
  332. Sub menuOffLine_Click ()
  333.   menuChange.Enabled = True
  334.   menuOffline.Enabled = False
  335.   menuOnline.Enabled = True
  336.   menuModem.Enabled = False
  337.   Call GoOffLine
  338.   Call ShowConfig
  339. End Sub
  340.  
  341. Sub menuOne_Click ()
  342.   Call UncheckStopBits
  343.   menuOne.Checked = True
  344.   TheStopBits = OneStopBit
  345.   Call ShowConfig
  346. End Sub
  347.  
  348. Sub menuOnLine_Click ()
  349.   CurrentRow = 0
  350.   CurrentCol = 0
  351.   LOGIN.Cls
  352.   menuOffline.Enabled = True
  353.   menuOnline.Enabled = False
  354.   menuChange.Enabled = False
  355.   menuModem.Enabled = True
  356.   Call GoOnLine
  357.   Call ShowConfig
  358. End Sub
  359.  
  360. Sub menuSeven_Click ()
  361.   Call UncheckDataBits
  362.   menuSeven.Checked = True
  363.   TheDataBits = WordLength7
  364.   Call ShowConfig
  365. End Sub
  366.  
  367. Sub menuTwo_Click ()
  368.   Call UncheckStopBits
  369.   menuTwo.Checked = True
  370.   TheStopBits = TwoStopBits
  371.   Call ShowConfig
  372. End Sub
  373.  
  374. Sub Timer1_Timer ()
  375.   If OnLineFlag Then
  376.     'get incoming serial data
  377.     Call GetIncoming
  378.   End If
  379. End Sub
  380.  
  381. Sub UncheckBaudRate ()
  382. 'uncheck all baud rates
  383. menu1200.Checked = False
  384. menu2400.Checked = False
  385. menu4800.Checked = False
  386. menu9600.Checked = False
  387. menu19200.Checked = False
  388. menu38400.Checked = False
  389. menu57600.Checked = False
  390. menu115200.Checked = False
  391. End Sub
  392.  
  393. Sub UncheckComPorts ()
  394. 'uncheck all COM ports
  395. menuCOM1.Checked = False
  396. menuCOM2.Checked = False
  397. menuCOM3.Checked = False
  398. menuCOM4.Checked = False
  399. End Sub
  400.  
  401. Sub UncheckDataBits ()
  402. 'uncheck data bits
  403. menuSeven.Checked = False
  404. menuEight.Checked = False
  405. End Sub
  406.  
  407. Sub UncheckParity ()
  408. 'uncheck parity
  409. menuOdd.Checked = False
  410. menuEven.Checked = False
  411. menuTwo.Checked = False
  412.  
  413. End Sub
  414.  
  415. Sub UncheckStopBits ()
  416. 'uncheck stop bits
  417. menuOne.Checked = False
  418. menuNone.Checked = False
  419. End Sub
  420.  
  421.